home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 33
/
033.d81
/
border patrol
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
46 lines
5 sys65418
10 poke53280,.:poke53281,.
15 print"[147]please wait ... reading data."
20 sum=0:fori=49152to49371:readj:pokei,j:sum=sum+j:next
30 ifsum<>31532thenprint"error in data":end
35 print"[147]"
40 input"[159]speed [157][157][157][157][157][157][157][157][157][157]";n:ifn<0orn>255thenprint"[145][145][145]":goto 40
42 poke49377,n
50 input"screen code [157][157][157][157][157][157][157][157][157][157]";n:ifn<0orn>255thenprint"[145][145]":goto50
52 poke49378,n
60 input"number of colors [157][157][157][157][157][157][157][157]";n::ifn<0orn>255thenprint"[145][145]":goto60
62 poke49379,n
70 fori=1ton
71 print"color code number"i;:input" [157][157][157][157]";x:ifx<0orx>255thenprint"[145][145]":goto71
72 poke49379+i,x:next
80 sys49152
90 printchr$(147):end:rem continue any basic program from here
100 data 76,6,192,76,36,192,120,173
110 data 20,3,141,220,192,173,21,3
120 data 141,221,192,169,51,141,20,3
130 data 169,192,141,21,3,169,1,141
140 data 222,192,88,96,120,173,220,192
150 data 141,20,3,173,221,192,141,21
160 data 3,88,96,206,222,192,208,88
170 data 173,225,192,141,222,192,160,38
180 data 173,226,192,153,0,4,32,188
190 data 192,173,224,192,153,0,216,136
200 data 16,238,169,39,141,153,192,141
210 data 162,192,169,4,141,154,192,169
220 data 216,141,163,192,32,147,192,169
230 data 40,141,153,192,141,162,192,169
240 data 4,141,154,192,169,216,141,163
250 data 192,32,147,192,160,39,173,226
260 data 192,153,192,7,32,188,192,173
270 data 224,192,153,192,219,136,16,238
280 data 108,220,192,162,23,173,226,192
290 data 141,39,4,32,188,192,173,224
300 data 192,141,39,216,173,153,192,24
310 data 105,40,141,153,192,141,162,192
320 data 144,6,238,154,192,238,163,192
330 data 202,16,218,96,152,72,138,72
340 data 206,223,192,16,9,173,227,192
350 data 141,223,192,206,223,192,172,223
360 data 192,185,228,192,141,224,192,104
370 data 170,104,168,96